home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / iso02-syn.el.z / iso02-syn.el
Encoding:
Text File  |  1998-10-28  |  4.5 KB  |  95 lines
  1. ;;; iso02-syn.el --- set up case-conversion and syntax tables for ISO 8859-2
  2. ;;;                   (ISO latin2, i.e. East Block character set)
  3. ;; Copyright (C) 1995 Free Software Foundation, Inc.
  4.  
  5. ;; Author: Michael Gschwind (mike@vlsivie.tuwien.ac.at)
  6. ;; Keywords: i18n
  7.  
  8. ;; This file is part of GNU Emacs.
  9.  
  10. ;; GNU Emacs is free software; you can redistribute it and/or modify
  11. ;; it under the terms of the GNU General Public License as published by
  12. ;; the Free Software Foundation; either version 2, or (at your option)
  13. ;; any later version.
  14.  
  15. ;; GNU Emacs is distributed in the hope that it will be useful,
  16. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. ;; GNU General Public License for more details.
  19.  
  20. ;; You should have received a copy of the GNU General Public License
  21. ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22. ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23. ;; Boston, MA 02111-1307, USA.
  24.  
  25. ;;; Commentary:
  26.  
  27. ;; Written by Michael Gschwind.  See case-table.el for details.
  28.  
  29. ;;; Code:
  30.  
  31. (require 'case-table)
  32.  
  33. (let ((downcase (standard-case-table)))
  34.   (set-case-syntax 160 " " downcase)      ; NBSP (no-break space)
  35.   (set-case-syntax-pair 161 177 downcase) ; A with hook
  36.   (set-case-syntax 162 "w" downcase)      ; u accent
  37.   (set-case-syntax-pair 163 179 downcase) ; L with slash
  38.   (set-case-syntax 164 "w" downcase)      ; general currency sign
  39.   (set-case-syntax-pair 165 181 downcase) ; L with v
  40.   (set-case-syntax-pair 166 182 downcase) ; S with acute accent
  41.   (set-case-syntax 167 "w" downcase)      ; section sign
  42.   (set-case-syntax 168 "w" downcase)      ; diaeresis
  43.   (set-case-syntax-pair 169 185 downcase) ; S with v
  44.   (set-case-syntax-pair 170 186 downcase) ; S with cedilla
  45.   (set-case-syntax-pair 171 187 downcase) ; T with v
  46.   (set-case-syntax-pair 172 188 downcase) ; Z with acute accent
  47.   (set-case-syntax 173 "_" downcase)      ; soft hyphen
  48.   (set-case-syntax-pair 174 190 downcase) ; Z with v
  49.   (set-case-syntax-pair 175 191 downcase) ; Z with dot
  50.   (set-case-syntax 176 "_" downcase)    ; degree sign
  51.   (set-case-syntax 178 "w" downcase)    ; hook accent
  52.   (set-case-syntax 180 "w" downcase)    ; acute accent
  53.   (set-case-syntax 183 "_" downcase)    ; v accent
  54.   (set-case-syntax 184 "w" downcase)    ; cedilla
  55.   (set-case-syntax 189 "w" downcase)    ; Hungarian '' accent
  56.   (set-case-syntax-pair 192 224 downcase) ; R with acute accent
  57.   (set-case-syntax-pair 193 225 downcase) ; A with acute accent
  58.   (set-case-syntax-pair 194 226 downcase) ; A with circumflex accent
  59.   (set-case-syntax-pair 195 227 downcase) ; A with u accent
  60.   (set-case-syntax-pair 196 228 downcase) ; A with diaeresis or umlaut mark
  61.   (set-case-syntax-pair 197 229 downcase) ; L with acute accent
  62.   (set-case-syntax-pair 198 230 downcase) ; C with acute accent
  63.   (set-case-syntax-pair 199 231 downcase) ; C with cedilla
  64.   (set-case-syntax-pair 200 232 downcase) ; C with v accent
  65.   (set-case-syntax-pair 201 233 downcase) ; E with acute accent
  66.   (set-case-syntax-pair 202 234 downcase) ; E with hook
  67.   (set-case-syntax-pair 203 235 downcase) ; E with diaeresis 
  68.   (set-case-syntax-pair 204 236 downcase) ; E with v accent
  69.   (set-case-syntax-pair 205 237 downcase) ; I with acute accent
  70.   (set-case-syntax-pair 206 238 downcase) ; I with circumflex accent
  71.   (set-case-syntax-pair 207 239 downcase) ; D with v accent
  72.   (set-case-syntax-pair 208 240 downcase) ; D with stroke
  73.   (set-case-syntax-pair 209 241 downcase) ; N with acute accent
  74.   (set-case-syntax-pair 210 242 downcase) ; N with v accent
  75.   (set-case-syntax-pair 211 243 downcase) ; O with acute accent
  76.   (set-case-syntax-pair 212 244 downcase) ; O with circumflex accent
  77.   (set-case-syntax-pair 213 245 downcase) ; O with Hungarian accent
  78.   (set-case-syntax-pair 214 246 downcase) ; O with diaeresis or umlaut mark
  79.   (set-case-syntax 215 "_" downcase)    ; multiplication sign
  80.   (set-case-syntax-pair 216 248 downcase) ; R with v accent
  81.   (set-case-syntax-pair 217 249 downcase) ; U with ring
  82.   (set-case-syntax-pair 218 250 downcase) ; U with acute accent
  83.   (set-case-syntax-pair 219 251 downcase) ; U with Hungaraian accent
  84.   (set-case-syntax-pair 220 252 downcase) ; U with diaeresis or umlaut mark
  85.   (set-case-syntax-pair 221 253 downcase) ; Y with acute accent
  86.   (set-case-syntax-pair 222 254 downcase) ; T with hook
  87.   (set-case-syntax 223 "w" downcase)    ; small sharp s, German
  88.   (set-case-syntax 247 "_" downcase)    ; division sign
  89.   (set-case-syntax 255 "w" downcase)    ; dot accent
  90. )
  91.  
  92. (provide 'iso02-syn)
  93.  
  94. ;;; iso-syntax.el ends here
  95.